..*-- ,^,A_ 



LABEL O000O0000PRINTEK001751O0CC LX U BJEC T/R E aU; F ILE SQURCEF ILE = SYMbUL/LF ILE5 ; END* 



OBJECT /READ 




gJ/ LFI^HS 



T< 



13| 
H 
,1S 
11 
17 
18 
IN 
iu 
J II 
lj 
J l 

*T 

X 
HI 
IS 

» 

:w 

31 

'12 

n 

'»! 



,:i9| 



44 
4b 
Mi 
47 
48 
43 
50 
51 
52 
53 
54 
55 
56 



• • 






■13| 
14, 



'7 
18 

'19: 

':,'o 
^i 

pa 

,24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

,7 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 



BEGIN 

real common; 

a*a_.leijj:s/!am^ __ 

commenti * title* b55q0/b5700 mark xiv system release 

* FILE ID1 SYMBOL/LFILES TAPE IDl SYMB0L2/F ILEOOO 

* - THIS MATERIAL IS P ROPRIETARY TO BuRHHL flHS CQRPORATinm 

* AND IS NCT TO BE rtEPROQuCEO, USED* UR DISCLOSED 

* EXCEPT lu ACCORDANCE WITH PRUvihAM lICEnSE OR UPON 

- - -* SRlTJLli_AiaHiJfiI2AjLlOJl_0f_JtlL_PA_TE^I DIVI SION OF 

* DURRQUGhS CORPORATION* DETROIT* MICHIGAN 18232 
* 

*.. CilBlE.lfi.liT. _J.L1 _L?JLL .jl.±211L3)£&RQ11 GH_S _CflRP Q RATIO N 

* AA1Z0206 AA3666bV ^ 



00010000 
00010100 

...0001^.20-0- 
00010210 
000102U 

JLQ.01 212 



00010213 

0001U214 

.— flfllUflglS. 



* 

* 



Jf 



00010216 
00010217 



.-2Mb); 

ISK SERIAL [20 11003 



c2*io* ju csave n; 



A CO I 60 3 » WORK C J 1 5 3 ", NAMES [ J 20 3 1 



HTHQRQ* 
RECS, SECNAkE, SEGS, 
TYPE, 1RECS, TSEGS, 



FILEM.PA 
Xlk.E_.&SK_ 

SAVE ARRAY „..„, „ „. w , ,„„., u „ „ „ , rwJ , 

ARRAY DAYSC0:i2 3»TYPETABLEt0»ll]*DIRC0:i022j; 
.?.EAL_CTR*. ....OISKBPTTQM, ^ FID# 1* INCREMENT, K, 

MAXPTR* NAME* NAMECCUNT, NI* PTh* '""~ """ 

SPECS, TABLESIZE, TCATE, TFRES, 

I Y P E F J E L .0 .' USE R ,_._ y. S_£R N A ME* H N K * 

BOULEAN ALL* BRAAK, LITERAL* LOCKED, OBJECT, rmmtiti 

SECURITYCHECK, SOLEUSER, SOURCE, TELETYPE* UNLOCKED* 

LABEL .COMPARE* CYCLE*. EMP.FID' ENOSqHT* EXIT, FQUNJJ, 

SKIP, SKIPIT, SGRTT, SUMM; 

INTEGER S; 

DEFINE MATCH(MATCH1,MATCH2)= 

R E AL ( BO L E AN C M A T C H 1 ) " E Q V BOOL E AN (MATCH 2 ) ) ■ R fc. A L "( N U T F A L S E ) # 1 

DEFINE M00ULUS*l3#,0IRMOD*169A,NUMQFTYPES * ' " 



** 



00010219 



LL* MASK, 



PRINTER; 



RESTART, 

public; 

.PRINT I !,._._ 



00010300 

. o ooio^oo 

00010500 

00010600 

00010700 

0001080 

00010900 

OGOJIOOO 

000 11 100 

00011200 
OQO .1 1 30.0 

oooiuoo 

00011500 
QQ01_l6 0_0_ 
00011700 
00011800 




DEFINE M00ULUS*l3#,0IRMOD*169A,NUMQFTYPESsll»; 00011800 

X ******* * *_**** * ** * * * * * * ******** * **_* * * *_*_** * *_*_* * * **** * * * * ** **** * * * ****** * * 000 11900 

rEA'l stream pROcEbuRT""o"CTcoNvTofcv)T~vALut" de'cvV "" ~ 00012000 

BEGIN SlJsLOC DECV; DI:*LOC OCTCONV* DS:=80CT* END; 00012100 

%*** ****» ***_**** ** ***** ** * ** * * ********** ****** **************************Q001220Q 
REAL s T R E AM P r rE nil r E n f r'c'a w v 7 a c. t w i i v a i 77F~nF rV'i ^^ n^«" 



REAL STREAM" PRO'C ED URE DEC'CQNV (QCTV )i VALUE OCTV;~ "00012300" 

BEGIN SUbLOC OCTV; UUslOC DECCONV; DSSsflDEc; EnD; 00012400 

************* *j*jfc^ *** * * * • •** ****** ***** ***********************************0Q012500 
"STREAM PR bClDU RE" BLANkT^OrD)) ~ 00012600' 

begin dijsword; ds:=lit" "; end; 00012700 

***************************** *^ * *** *************************************qqoj2800 

''5TRr^M""P]?^'E0'uyE~BLANT^S\l(i^RKTJ ~ "~ " OOO 12900 

00013000 



BEGIN DI«*WORK; DSj = 8LIT" »»; SpsNQRKj US!s9rtOS; END; 00013000 

**** ***_********_*** ***_* ***** ****_* ** **j*j»;**j»**** ************************ **QO0l 3 100 

rocedure twx6utca';n,tT;' value n*"t;""'real""'a7n*TT'" 000T3200"' 

BEGIN COMMUNICATE(-Il); BRAAK * =BUOlEAN( T ) ; EnD; 00013300 

******* ***** * *** *** *********** * ************* * *** * * * ***** * ***** * * * * **• ***0G013400 
STREAM PROCEDURE MOVECN* A, B); VALUE N; ~ ~ ~ " ~ 00013500 

BEGIN SH»a; DU»B; DS:»N WDS; ENO; 00013600 

********* **** ****** ***** ***** * **** * ****** * *_ * ***** *_**_*** ****** *********** QQO 1 3700 

PROCEDURE DISKWAlTf If!RlT» ARfA.ST 7F.f)l SKinilHrsVi":""" "n«nia<,««' 






4 

5 I 

6 

7 

8 i 

9 

10 

l'i 

12 

13 

14 I 



16 

17 

18 

19 

20 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 I 

30 

31 

32 { 

33 

34 

35 4 

36 

37 

38 ^ 

39 

40 

41 i 

42 
43 
44 I 



• 
• 




• 



^m t 



= 6; 



in 
1 1 

'I 

1i, 
< 14 l 
[16 
,16 
117 
lis 
'IS 1 
Sl> 
,21 
_J 
2JI 
2-1 
25f 
i>6 
27 
28 
29 
30 
31 
32 
Xi, 
VI 
36 



BEGIN 

Sli-SI+i; TALLY:= 

EMD1 

sv»»si; sijsloc a; sii-si+ij dh»svj 

Nl=TALLY; TALLYJeW 

H(IF.-SC NEQ DC 1MLU 

BEGIN 

5I»=SI-i; IF 5C NEQ " " THEN 1ALLY*=0; JUMH OUT; 

_ EfsLD)J 

litcomp«*tally; 

end stream procedure 

%.* *..*. *.****** *.**..* *.*. * *.*.*. .*.*. 

BOOLEAN STREAM PROCEDURE COMPAUDSW AH C A * 

%************************************** 



litcomp; 

' *_**-***..****** * * * * 



*„**.** ****** * * 

e ); 

************* 



*** ****** 



********* 



BEGIN LQ.CAJ. 

% ROUTINE CO 
* IF M B" IS 

x exchanged 

x the word a 
* the word a 

% juih i.hat 

si$»a; s i i * s 
if 7sc gtr d 

BEGIN 

TALLYt»i; 
si:*a; DI 

Sl-lPflj DI 

si««loc r 
end; 
„ end si beam p 

X************** 
REAt PROCEDURE 

% *** * * * * * * * * * * * 



DS "A" AND "tt" 

THAN "A"* WOi "A" AND "A + l" A 

-a" and "at i". 

AND "B" ) IS A f 
I AND "!J + i M ) IS 



TliL_l. 

MPA9ES W 

GREATER 

WITH WD.S 

T "A" ( 

T M A + 1" 

NAME.* 

i + i; di*=b; oi« s ul+i; 

C THEN 

compandswah*»tally; 

JSL0C T2; DSJ»2rtpSj 

ts.AJ 4iS;s2«V0Si. 

2i DI: = b; DS'l»2WDS; 



ile name* and 
The address 



RE 

ASSOCIATED 



B.QCEDURE 
******** 

TIMEC0NV 

* * ****** 



C.0MP-AND.Si*AP.i 

**************** 

; 

**************** 



OCUiSOOO 
00015100 

00015-20-0. 

00015300 
00015400 
0-0-01 55-00- 
0CQ15600 
00015700 

000,15800. 

00015900 
00016000 

* * * ***•*.*.* * * QO Q ii 6100 
00016200 

***********00016300 

- - Qju.ajuL4.aii.. 

00016500 
00016600 
QQ01.6ZQ.A 

00016800 
00016900 
£.0017000 
00017100 
00017200 
00017300 
00017400 
00017500 
.00.017600 
00017700 
00017800 
... 0-00179 00- 



************* 
************* 



********* 



********* 






SJ(..H,.M,Xj; ,;. .... 

OS: =2 DEC/ U3:=LIT":"; 



w 

M 

*« 

48 
19 
50 
51 
52 
53 
54 
5S 
i6 



BEGIN 

INTEGER HRS#MIN#TIM; 

REAL STREAM PROCEDURE 

BEGIN 

DI»=LUC ST; SI S-H, 

-Sis ==m; aii«MU _ 

sn-x; sii»si+5; ds:*3Chr; 

END STREAM ST; 

TIM %9 TIMECDJ. _ 

HRS t= TIM DIV 216000/ 

MIN Is (TIM DIV 3600) MOD 60; 

JUL. IB ... IF ...HRA.fiJ.B. .ll...Ih£N....:V ..HMJ:._lLS-E. 
IF HRS GTR 12 THEN HRS »* HRS - 12; 
IF HRS LSS 1 THEN HRS : =* 12; 
TIME CO NV l» STlHi^S»MlN#TlMj; 



********************** 



END TIMECQNV; 
%*************************************************** 

..RE Al.._PB.QC.ED UEEL M A K E A T ElDAlEJ.i_,..^AuiL,,_DAlE j, jjE .Aj. JJAIL 
%************************************** 

BEGIN 

BEAL_M.ijjLfiDi.yjri _ __ _ _^ 

MM!*DECCONV(DATE); DD : =0CTC0NV(MM.[30: 18]); 
YYisOCTCONVCMM, [18J123)/ 

„ If_ DD GEQ 60 THEN 

IF YY.C46I2] NEQ THEN 
DO I* DD ♦ i; 

YY»- MM«C18il 2 3J MMI-Q; 



****** 
/ 



* ** 



***********00018000 
O0U18100 

****•••* ***oqo i.8.jj.au .. 

00018300 
00018400 

Qfl 0.1 _fl .5 Q..Q. 

00018600 
00016700 

Q Q 1 8 8 

00018900 
00019000 

. . _ _.... _ Q00l 9l0n 

00019200 
00019300 

00019400 
00019500 
00019600 

0M1V2Q.Q_. 

0001V800 
***********000 19900 
00020000 



*#*********OQQ2QlO0 
00020200 

0Q0 20300 

000.0400 

00020500 
OlOO 2 60 _ 

00020700 

00020800 

00020900 



Q 

Q 



3 

4 

I 5 
6 

7 

> 8 
9 

in 

I ! r/ 

pl" 
if. 

I d 

I 
19 

;»! 

2/ 

24 

25 

! '8 

27 
28 
29 

30 
31 
32 

33 
34 

5 
36 

,37~ 

pit 

f 9 - 
40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



DO MMJrMM+1 UNTIL CD LEQ DAYSLMMJ OH MMs\2; 

DDjsOECCONV (DD-OAYSCMM-l] )i 

MMfsQECCUNV (MM) ; _ 

makedate; I* M o/oo/0d"4MM["i » i7 * 7i i*du c ie : 36i 12 j '"i ! y VT36 » 36 » 121 ; 

END MAKIDATEJ 



X**-****»***+***»********** ' 



00021000 

00021100 
_L_J_____.Q. 
00021300 
O002UO0 



vuvcmuu 

__ _-__ _ — : -.-- -J *** * ************** *_**** ******* ***»**»**** * ***00Q21' i )0Q 

STREAM PROCEDURE PRINT IiMG C WORK ) } 00021600 

._._ 00021700 



begin diishork; ds'; = i on T"pkinti no , . «; enp; „ wv ^*,„u 

_ _ _ _ ...... j____J»___. *..*..*..*..* „.._J_*._._..* ******* ********* O Q(,)£lQQQ 

00021900 



...I-** *_**__* ._.__+____. .__**. A_*.**j*____* 

STREAM PROCKDURE HEADINUC WORK ) ; 00021900 

X********************** ************************************************* 00022000 

— -&EG1N -._ — 000221-04 

DIJsWORK; 0S:*39LIT M NAME TYPE RECS SEG- CREATED "* 00022200 

00022300 
-0,0.022400 



. _ _ TYPE 

DSS=41LIT"ACCESSEC w/r w/b s-f 
.£!_______! PROCEDURE HEADING; 



RECS SEGS 

LQCKD BY 



************************* :********************************* ** ************00022500 
STREAM PROCEDURE TRAIlERC I*0RK*NF1 L» NSEG *NREC ) ; VA|_UE NF1|_,NSEG,NREC; 00022600 

__*__________________ •,***_****_* * * * **±*±* ****** *.* *_».„_:.»* ._._»_ **** * **** * * ***0002 _70f) 

00022800 
=rtQRK; 



■ work; 



_3:=9WDo; 01* 



X * _* * * * * * ************** 

BEGIN "LOCAL "o'vT 

DlJaWQRK; DSI=8LIT" " ; 31* 

DJt.-D.ltlO.;. D_1._I____:J_E_-. , 

DIlsDl+lO; DStsSLIT^SEGMENTS"; 
Di:sDl+lO; DS«»8LIT W REC0RDS M ; 

Dl*_»WpRK; §Il._L.PC NF1L_ 

3CDSI ■8DEC; DV; _DI; 01 : _ui-_; U-8 a7FILL> DI "i "sUV i DP ■tii+Tb~)T "" 

END STREAM PROCEDURE MfcADlNvi; 

' *.*_*. *...*_* *.*.*..*.*.*.* .*. * *. * .*.*._* ***..** ** * * * * *.**.*. .**.*_ * *00Q2 36Q 

00023700 
00023800 

___ 





__.O24200 



.%.**** ************************* 
STREAM PROCEDURE OUTFCRMAT 



00022900 
_ OOO. _J 0.0.0.. 
00023100 
00023200 

- _______) 

00023400 

00023500 



omtAM rnuttuutit UUTrGKMAT 0002370 

CW0RK*FILNAM*FlLTYp»RECS*SEG5*CDAT»A_AT*WpR*fcp_,SAVFAC*S£CNAM*AFLG); 0002 380 
__» .» *_, ,.__ .*..* __»___» .*±*^*.iL*^^.±*^jL*..*JL*^*jt*±*±**±**t^ .*. ***** **** ******************n^avA^n 
VALUE F ILN AM#FILTYP»R ECS* SEGS* COAT* A AT* WPR* WPB* - A VF AC» 5ECN AM* AF LG; 0002400 
BEGIN LOCAL DV; 0002410 



BEGIN LOCAL DV; 

__U _l___i_„_J_L____L__i_ . _____ 

2(su*si + n oS:.7chr; ds:slit" "jj t file name and type 

2CDS«»5DEC; dv»*di; oi»»di-5; DS!*4FlLL; DlJaUV); X RECS 
.JOS i=2J_JI._ - "J— D_l _a CHR J-X- CRE AT -I___._P.AIE - — _ 

DS:*3LIT" w ; AFLGCDI JsDl-3; D3;=jLIT" * "); 

DSl=8CHR; X ACCESSEO DATE 
...JlBS.r.= 5J3EOi._.DiLL%OIX.ii.l-LsDX-Jii._Qil=ii 

sn»si*i; dsi*2Lit" "; ds«*7chr; _Si«.L.T" 



AND SEGS 



j__i__aa_ 



'; * security name 



00024300 
00024400 

..00Q.2A5.aq 
00024600 
00024700 

..00024800- 



00024900 
00025000 



END STREAM PROCEDURE OuTFORMAT; ug U «ooo 

A*,** *_*. ***.* . ___» *..*.*. ._t__„_L_____l_L__.*___ *__■ * * * *_** ******** ******** **** * *»QQQ25t 00 
STREAM PROCEDURE T YPEF I LECF 1 1 L* T YPE ) ; VALUE TYPE' ___..---- 

X************* ********************* ************* 
BEGIN LOCAL .S.Vi _______ 

sh=fiil; 3(sn«si-a); dijslqc fiil; dsjswos; 



wa»-i _ih.' Ji»ji»>)j"o<; Ui.«-_uu riii.; UJiinU}' 

sijbfiil; i4(Sn_si+8)j on»LOc fiil; dss.wds; 

JU.IJ_F.IU__ ..._l_J___1__1I____U--_____i_______. 



00025200 

************************0(jQ25300 

0QO2!3400 
00025500 
00025600 

___.-_. .. _.___ _________________ »_._,__, _. OC-J.2_Z__.. 

SpsLOC TYPE; SU = SI+7; DSt = ChR; 00025800 

END STREAM PROCEDURE TYPEFUE* 00025900 

________*,* ************* ********* ************* *********** ********»***** **»oq0 26Q OQ 

X*************************************************************** # *** *"*"* * 00026 1 00 
TDATE t» OCTCONytTIME(O)); 00026200 

"" " - ■■■ - - --■- -- 00026300 

00026400 
00026500 

000,26600- 



FILL DAYSC*3 



_L_l____________L_i_______ ___L ^ 274*30 5*335*366; 

EC*3 WITH "UNKNOhN"* ,, BA_lc "•"ALGOL "•"cO_OL "* 
POL "* M XALGOL "* ,, SEQ ","DATA "*"LOCK »* 



FILL TYPETABLE- 

W F0RTRAN%"TSP0L "*"XALG0L "*"SEQ 

"_____ __."____„.__ 



AC03 «» OJ DISK_AIT(1*A*_6*C0MM0N); * GET ESP RECORD 

USER I- A[2]l X USER COBE 

SP^CS I- Af3_J X SFLECTIO N INSTRUCTIONS 



00026700 
00026800 
00026 900. 



V) 

3 

4 

M 

6 
7 

9 
10 

12 

13 

,4< 

15 

16 

"I 
18 

19 

20 | 

-" 

22 
23 | 

24 

25 

26 | 

27 

28 

29 | 

30 

31 

32 | 

33 

34 

35 ^ 

36 

37 

38 ^ 

39 

40 

-I 

42 

43 

44 ^ 

45 

46 

47 4 

48 

49 

BO | 

51 

52 

53 % 

54 

55 

56 % 

57 



* t 



I 2 

3 



1? 

10 

14 

15 

16 

1? 

18 

M>~ 

|.0 

21 



14 
2b 



26 
27 



28 
29 

30 
31 
32 
33 



39 

40 



42 
43 



46 
46 

47 
48 



»9 
50 



52 
53 



USERNAME «= A[43; X USE* NAME ASSOCIATED WITH FILES 
LITWORD »= ACS]; % "LITERAL" VALUE 

IE -£ NAM EX.QUKT J =ALZ ai_fi£fl_fl_LtlEfiL X_£1L£_A A.J4ES . GIVEN 

BEGIN 
M0VE<NAMEC0UNT+i*A[21J»NAMES[0]>; 

UR_U_l£L SJ.E.P i_UMlk^AM£iLO.U.NI_0.a 

NAMESCNAMECOUNT+I + l] I = NAMES C I 3 . I 6 t 36 ] ; * OBJECT FILE NAMES 
NAMECOUNT is NAMECQUNT * 2 + l; 

_£N.QJ. _ „_ _,.. 

ALL «s MATCH(SP£CS#0); % NO RESTRICTIONS 
[ SECURITYCHECK U NOTC MATCHC USER* USERNAME >) ; % NOT PRIMARY USER 
J=feLtER AL «_5_N0.t_I _ M AI£M.tLHMQBDi5i J L% £*P T Y LIT ER AL WORD. 
IF MATCH(A[6],"TELETYP") THEN TELETYPE '= TRUE ELSE 
IF MATCHCAC63, "PRINTER") THEN PRINTt* «= TRUE EL^E 
...._.£.lkL-..DS.K hllti AULUU&ZRL-X _OUIP_U.I TJJ DISK FILE 

blanks(work); w0rkcq3 »* makeoate ( tuate )i 
workmj «* username; blankcworkcu); 

~ WlfiKtaJ Is " — _«J. BLAJ s liiCi*nRliIil.)/.-JtLiRK-Ea-l is TlMFTONyt 

IF TELETYPE THEN TWX0UT C WORK CO J r 32' 1) 

ELSE IF PRINTER THEN WRI TEC LPA*#*?3 > 1 0* WQRKC * 3 ) 
— ELi£....W.SITEXi3SK.a.Q# W.QRKIH.U.. _ 

% SEARCH THE BYPASS DIRECTORY 

DISKWAIT(1*AC*]#30#0)J * GET SEGMENT ZERO 

- .awxao-iT-aM im a-ui . * .^t - .„ 

RESTART 5= FALSE* 
FOR fid 1 = MODULUS 

.__ - BEGIN S TRY ALL 

S :s 0ISK80TTOM - 

2 x (CFI0t[H233 + FI0»C2«»2«3) MOD MODULUS x MUDUlUS + 

UlSER.NA^a.U2.3U-L^^ NA ^+E2A „ 

DO BEGIN 

DISKWAlT<l#A[*J,60#S)i % GET DIRECTORY RECORD 

FJIR-L L«_fl-&I££_3JU -N.I1L- 5Z_ JUL * 5 F A R C J1...0JjiiX IflflX _&Lfi 

IF (NAMElsAtl]) NEQ "7" THEN * VALID ENTRY 



3 



-1 STEP -1 UNTIL DO 
. PCSSIBL-E. SCRAMBLE HLO-CJiS . 



MENT 



IF 



match(aU + i]#username) 

BEGIN. 

Na^E* C6: 123 



THEN % ENTRY FOR THIS USER 



9 then ucj tu skip; * not cande 
leo 8 and k geq 1 then go skip 

NQJLja.1. Cft H PiiOlJS .0. BJizJUM£l_lilEJl 
THEN * FILE NAMES SPECIFIED 



IF N A M E , [6U23 Le<3 
IF CKI*NAME.C6:6] ) 
IE..Lll£.RAL...IJ±E.N._..IE. 
IF NAMECOUNT GEO 

BEGIN 
F.OR.JS.I m Q- -SUP ... 1 U.N I I.L _JiAJ££j3iANI- 

if match(name#nameslk3) then go 
go to skip; % NOT MATCHtJ 
END; % IF N AM£S._S PE£ J FUQ 



FILE 

; % wk 

_aci_5Ju 



FIL 
EjL_ 



DO.. 

TO 



t-OUND. 



FOUND' 



SKIP: 



IF 



DIRCNI3 »« NAME; 

DIRCNH13 Is AtI + aitC33»l5JJ % HEADER ADDRESS 
.MJ.....».S_hll._*_..a.i _ _ 

end; x i locf 

NI GTR 960 THEN * LIST FILES IN 2 SECTIONS 
,.B£G1N_ 



JMOJU. 



RESTART 

end; 



la TRUE; LlNKi*At23; GO to sortt; 



000*7000 
000*7100 
..Q..Q..9.2Z2Q.0-. 
00027300 
00027400 
. QQ.9JLZ5_0J5.. 
000*7600 
000*7700 
O.OQ.ii.IaQ.0. 
00027900 
00028Q0( 

_Jttfl.OJaiQQ N 

00028200 
000*8300 

. QOHZ&MJXQ. . 
00026500 
00028600 

-00028700 - 
000*8800 
00028900 

... QflJ12AQfl{L 
00029100 
00029200 

.XLO.a29.3i30 
000*9400 
000*9500 
00 .02. 9 600 

00029700 
00029800 

00030000 
00030100 
OOOiQpOp 

OC030300 
00030400 

.0£&3.Q 5-0-0 

00030600 

00030700 

00030300 

00030900 

00031000 
ononi nn 

00031200 
00031300 
000J1400 

00031500 
000 31600 
000317 00 

00031800 
00031900 
00032000 



^SS-toiLiVfCUFCk -.= f*us&j 



END 

end; % 

SORTTl 



UNTIL ( SJ*A123 
FID LOOP 



L 18 s 15 J ) 



00032100 
00032200 
00032300 



TABLESIZE l« Nl/2i 

INCREMENT ** CTABLESIZE+1) DIV 2i 

MAXPTR l» TA BLESIZE ; INCREMENT; 



00032400 
00032500 
00032600 



00032700 
00032800 
00032900 



T< 




16 



18 
19 



23 ' 



27 
28 
29 ( 
30 



34 
36 i 
36 
37 
38 I 
39 



42 
43 

44 ' 
46 



47 
48 



e 



49 



53 ' 



55 

56 



f\ 

2 

3 

ii 

■4 

15 

I" 
7 

a 

r 1 

|H1, 

i ■; 

u 
i ... 

,13 
14. 



17 

ia 

j 

joi 
21 
22 

23 

n, 

26 
27 
28 
29 

JO J 
31 
32 
33 

P4 
35 
36 



r 

Sfl 

j» 



i41| 

to' 

c 

46 



CTH !=■• PTR 1= O; 

GO TO cumpare; 

..CYCLE.! _ _. _ _ 

IF CCTR»*CTR+1) GTR MAXPTR THEN % HALVE THE INCREMENT 

BEGIN 
JJ_ MNCMMEM l.s_I^CJiO£i!LT_.DJLV_2J..^...Q ItiLh. „_£L ID ELRQ.SXl.RIi_. ._ 

MAXPTR J= TABLESIZE - INCREMENT* 

CTR »* Of 
LUDi _ .. __ _ _ 

ptr «» ctr; 

COMPARE* 
..IF CQ.MPANDSiNAP.Cam iHE-i 

if cptrjsptr-lncrement) geo then gq to compare; 
go to cycle; 

E.N-y.3QRI.i..J_Xi?.Nlr_a; 

IF NOT TELETYPE THEN 

BEGIN PRINTING(WQRK); TWXQUT ( WORiUO J , 10* 1 ); END; 

HEADING .C.HORK.)J._ - _ „. ._ 

IF TELETYPE THEN TWXCIT C WURKC J * t2» 1 ) Ei.Se 

IF PRINTER THEN WRI TEC LHA_*it=_ > 9> wOhK[ * _ ) ELSE 

.Jt8.I.T£CD5l.#.1.0«H.QR«.I*J.li_ _ _ 

FOR IlsO STEP 2 UNTIL NI DO 

BEGIN 
D.lSKWAlTCl,AC*ljaO,OlHM*l 3J; % GET FILE HEAULR 

UNLOCKED !s MATCHCAt5J»li:) AND M A T CH ( A L 6 3 > 1 2 ) » 

PUBLIC is MATCHCACS]#12) AND NO F { MATCHC AC6 ] * 12 ) ) ; 
IF SECUfi.IT Y.C HEC K T WEN I.E. ,NQ I .tU_lL.ll_.KEfl -OR .PUB.LJLC.A THEN 4O-...SK4.P4 U 

LOCKED is BOOLEAN(A[53.Cl«l]); 

SOLEUSER J* MATCH(At5J»0) AND MA T CH( A t 63 > ) J 
3 au.RCE._J.? nipt r nBjrr. T n Rnm lam( Aral .rinn 3 m 



IF (TYPEFIELD»»AC-13.C36*63) 
IF ALL THEN GO T0 PRINT1T; 

% BUILD C OMPARISON MASK 

MASK «* SETBITCTYPEFIELD) 



GTR NUMQFTYPES ThEN T YPEF IELO »«o; 



[47:47:1] 
£46:47.: 11 

tM:47:i] 
L.4 3J_4 7 : lj 



REAL(SOURCE) 
REAL(OBJECT) 
RE AL CLOCKED) 
REALCUNLOCKED) 

REAkCSCU-EUSERL 

REALCPUBLIC ) [42:47:1]; 

% IF "SPECS" BIT IS ON* CORRESPONDING "MaSk' 
If. REAL C. B QOLl A Nl_Sf £C S L_i.M.P. _ 8J L£ _.__ M A S.K _. ) 

REALCNOT FALSE) THEN GO TO SKIPIT; 
PRINTITJ 

FOR KJ = 10 ST£P 1 UNTIL _2 9 £______ A lK_3_=Q THEN 

SUM Ml 

TRECS »■ TRECS + 
TSEGS la TSEGS + 

TFILES :* TFILES 

NAME «= oircu; 

TYP£_J_«_ TYPEJABL£CTYP£FIELDL; 



GO TO SUMM, 



CRECSfsAC7Jfl); 
(SEGSi«CK«1 0)xA [6]); 

+ i; 



IF OBJECT 

v=S€OI".N'"- 



THEN 



' N^ME~ 
TYPE 

-turtrr- 



j« J "- 

iV M 0BJ( ) " & ' TYPE t 30: 6 J 63; 



& NAMCE6H 2 I36 3; 



.SEXLNAME * ■ IF. . LQ..QKEP JM!___U._l.i.Jj_L_21 £_LSE 

IF UNLOCKED THEN "UNLOCKQ" ELSE 

IF PUBLIC THEN "PUBLIC " ELSE " "; 

QUTFORMATCWORK, 



00033000 

00033100 

..0-00.3.320.0. 

00033300 

00033400 
..QH0j.35.QQ 

00033600 
00033700 

.o.o.y_3.3.ao.Q 

00033900 
00034000 
00Qi4inO_. 
00034200 

00034300 
00U3440Q ... 



00034500 
00034600 

-HOXUAZQ-O.. 
00034800 
00034900 

.____L_5.C-_a 
00035100 
00035200 

.0.0.U 3530.0 
00035400 
00035410 
O0U45.50-O-. 
00035600 
00035700 

.QQQ35flQ.Q. 



00035900 
00036000 
-0Q03610Q 



00036200 
00036300 
.0_0_0.1640_0_ 

00036500 
00036600 
00036700 



00037000 
0C037100 
00037200 
00037 300 
00037400 
Q00 37500 



00037600 
00037700 
000 37H00 



00037900 

UUU48UUU 



■ w_ u i_iu 



00038200 
00 Q JU300 



0003 8400 



00038500 
00038510 
00036600 



bIT *MUS7* BE QN 
NEQ 


00036710 
00036800 

00036900 



Ti 




»r— 



2 

3 1 
4 
5| 

'fi 

i- 
V 

B 

»i 
i- 

,0 

11 

1-,' 

13| 

14 

15 

1(5 

17 

111 

19 

20 

21 

22 

23 

24 

26 

2* 

27 

28 

29 

30 

31 

32 

3.1 

M. 

3!i 

\6 

r/~" 

» 

39 

4(1 

4 

•2 

43 ~ 

44 

45 

46 

47 

48 

49 

SO 

61 



* 

% 

-JL 
X 
X 

% 

-X.. 

% 

X 



FlLENAMfc. 

FILE TYPE 
.NUMBFR-fl£_ BLCUHPS .. 

NUMBER OF SEGMENTS 

CREATION DATE 
-ACCESS 11AU- 

WORDS HER RECORD 

WORDS PER BLOCK 
-SAV.L_ELAJCJ.Ha_ 

SECNAME 

access flag 



NAME* 
TYPE* 

....- -fi.EC-S_ - _ _ _ 

segs* 

MAKE0ATE(A[3].C30Me3)* 
--HAK£XJAI£AA. 3 U 1 42 U844* 

AC03.CU14]* 

A[0],C15I153» 
AI3.3, 1 2U CU_ 

SECNAME, 

(AC33,C12»183»TDATE)); 

IF- lEJ-ET-tPX- TME*I_.I l-JtllUTXJ-JlfilU-QJj- _____1.X-_X_»E . 

IF PRINTER THEN WR ITEC LPAfc_*_=L, 9* WORK t * 3 ) ELSE 

WRITECDSKMO'WORKC*] ); 

- - I E ...BRA AX.. IHEN....G.Q. I£L LX.IIJ -../.ilUXI. ..Q„L..a.B£.AK 

SKIPIT« 

END I LOOP; 
IF .RESTART._THEM 

BEGIN NIS-O; A[23*-LINk; RESTART » -FALSE i GO 
TRAlLERCWORK*TFlLES,TSEt.S*TRECS)> 

If TELETYPE THEN T WXOUT ( WORKUP J > 54 * I ) ELSE 

IF PRINTER THEN WRI TE (LPA &*«=*) , 9* WQHK [ * j ) ELSE 

WRITE(DSK#10»W0RKC*3 J; 

IF NOUPRIN.TER OR TELE .!__?._-- ...tH£_| IF_. If ..ILLS SIR 

BEGIN 

TYPEFILECDSK,8); LCCKC OSK* * ) ; 

EN-DJ 

EXlTl 

END PROGRAM. 
.EW.Q1EN.D. LAST CARH QN 0CflOIJ_a_I__e£_ 



t- endfio; end; 



THLM 



00038700 
00038800 
..0.004.89.0-0 
00039000 
00039100 

00-0-392QO 
00039300 
00039400 

. OOO.i.95.00 
00039600 
00039700 

Qaojsaoo. 

00039900 
oooaoooo 
..XiOQA.04.a0.. 
00U«0200 
00040300 
QQ04Q 400 
00040500 
00040600 

Q.ao4o?5.o... 

00040800 
00040900 
OXUUIQOO 
00041100 
00041200 

oooaiaoo- 

00041400 
00041500 
9-9-99 999.9 




• • 



LABEL O0OOOOO0OPRIMEHO0175100CC EX Oti JEC [ /WE AU i F I LL sOuRCEF ILE»SYMBUL/L.F ILES;ENU* 



OBJECT /REAU 



IB 

i:V 



21 
il 
22 
24 
'IV 
26 
27 
28 
2H 
30 




m • 



